home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / index.arc / AEGETFLS.BAS < prev    next >
BASIC Source File  |  1987-01-11  |  1KB  |  37 lines
  1. rem $linesize:132
  2. rem $title:'Application Engineer Standard Routines'
  3. rem $subtitle:'Get a file's status flag'
  4.  
  5. '                Include the COMMON values
  6. rem $include:'AESHARED.BAS'            
  7.     
  8. sub Get.File.Status(fl%,rlen%,st%) static
  9.  
  10.         field #fl%,1 as stat$,2 as n.av$,2 as l.av$,1 as mj$,1 as mn$,1 as bug.fix$
  11.         field #fl%,8 as dummy$,r% as filler$
  12.  
  13. '  stat$    =  Status (1 = Open / 2 = Closed)
  14. '  n.av$    =  Next available record
  15. '  l.av$    =  Last available record
  16. '  mj$      =  Application Engineer Major release version
  17. '  mn$      =  Application Engineer Minor release version
  18. '  bug.fix$ =  Bug fix code within Minor release
  19.  
  20.         get #fl%,1%
  21.  
  22.         if mj$<>chr$(0%) or _
  23.             mn$<>chr$(0%) or _
  24.             bug.fix$<>"B" _
  25.         then
  26.             call ae.error("GFS Version mismatch error. Action 01")
  27.         end if
  28.  
  29.         st%=asc(stat$)
  30.  
  31.  
  32.         if st%<1% or st%>2% then         '  File is corrupt
  33.             call ae.error("GFS File is corrupt. Action 06")
  34.         end if
  35.  
  36.     end sub
  37.